﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
	dim Runtxt,id,rs2,sql2,i
	Runtxt=qingtian.RunStr
        id=Request.QueryString("id")
	if id="" then id=1
	if not isnumeric(id) then id=1
	id=clng(id)
%>
	<card title="添加物品"><p align="left">

	物品名称：<br/>
	<%
	  set rs2=server.CreateObject("adodb.recordset")
	  sql2="select * from qingtian_shangpin"
	  rs2.open sql2,conn,1,1
	  if not (rs2.bof and rs2.eof) then
	  For i=1 to rs2.RecordCount
		if i=1 then
		%>
		<select name="nid<%=Runtxt%>" value="<%=rs2("nid")%>">
		<%
		end if
		%>
		<option value="<%=rs2("nid")%>"><%=qingtian.utf8(rs2("name"))%>/<%=qingtian.shangp(rs2("bitt"))%></option>
		<%
	  Rs2.MoveNext
	  Next
	else	
	%>
	<select name="nid<%=Runtxt%>" value="">
	<%
	  end if
	  Rs2.close
	  set rs2=nothing
	%>
	</select><br/>
	物品种类(请填务必选择正确的种类)：<br/>
	<select name="lib<%=Runtxt%>" value="1">
        <option value="1">礼物</option>
        <option value="2">道具</option>
        <option value="3">头像</option>
        <option value="4">勋章</option>
	</select><br/>
	物品数量：<br/>
	<input emptyok="true"  name="page<%=Runtxt%>" value="1" type="text"/><br/>
	<anchor>确定提交
    	<go href="addchuwu.asp?Action=login&amp;id=<%=id%>&amp;sid=<%=sid%>" method='post'>
        <postfield name="nid" value="$(nid<%=Runtxt%>)"/>
        <postfield name="lib" value="$(lib<%=Runtxt%>)"/>
        <postfield name="page" value="$(page<%=Runtxt%>)"/>
    	</go>
	</anchor><br/>
-------------<br/>
<a href='chuwu.asp?sid=<%=sid%>'>返回物品管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function


Function login

		dim name,rs,sql,errs,id,nid,lib,page
		nid=Request.form("nid")
	if nid="" then nid=1
	if not isnumeric(nid) then nid=1
	nid=clng(nid)
		lib=Request.form("lib")
	if lib="" then lib=1
	if not isnumeric(lib) then lib=1
	lib=clng(lib)
		page=Request.form("page")
	if page="" then page=1
	if not isnumeric(page) then page=1
	page=clng(page)
        id=Request.QueryString("id")
	if id="" then id=1
	if not isnumeric(id) then id=1
	id=clng(id)
		errs=""
		if page="" then errs=errs & "关键名称不能为空<br/>"
	%>
	<card id="login" title="添加物品" ontimer="chuwu.asp?sid=<%=sid%>"><timer value="20"/>
		<p align="left">
	<%
	IF len(errs)=0 then


		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select  * FROM qingtian_chuwu"
		rs.open sql,conn,1,3
		rs.addnew
			rs("bid")=id
			rs("nid")=nid
			rs("page")=page
			rs("lib")=lib
		rs.update()

		rs.Close
		Set rs = Nothing
		%>添加物品成功!<br/><a href="addchuwu.asp?id=<%=id%>&amp;sid=<%=sid%>">返回继续添加</a><br/><%

	else%>
		<%=errs%>
		<a href="addchuwu.asp?id=<%=id%>&amp;sid=<%=sid%>">返回修改</a><br/>
<%	end if
%>
<a href='chuwu.asp?sid=<%=sid%>'>返回物品管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 


%>
